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— Files. Mesa Edited by Sandman on August 29, 1977 8:44 AM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
AltoFileDefs: FROM "al tof i 1 edef s" , 
BFSDefs: FROM "bfsdefs", 
BootDefs: FROM "bootdef s" , 
DirectoryDefs: FROM "directorydefs" , 
DiskKDDefs: FROM "diskkddef s" , 
InlineDefs: FROM "in! inedef s" , 
MiscDefs: FROM "miscdefs", 
SegmentDefs: FROM "segmentdef s" ; 

DEFINITIONS FROM AltoFileDefs, SegmentDefs; 

Files: PROGRAM 

IMPORTS BFSDefs, BootDefs, DirectoryDefs, DiskKDDefs, SegmentDefs 
EXPORTS BootDefs, MiscDefs, SegmentDefs SHARES SegmentDefs = BEGIN 

FileError: PUBLIC SIGNAL [f i le : F i leHandle] = CODE; 
FileNameError: PUBLIC SIGNAL [name : STRING] = CODE; 
FileAccessError: PUBLIC SIGNAL [fi 1 e: Fi leHandle] = CODE; 

NullFileObject: FileObject = Object [ TRUE, FALSE, 
File [ FALSE.FALSE, FALSE, FALSE, FALSE, FALSE, 0,0,0, 
FP[SN[l,0,l,17 777B,177 777B],eofDA],FA[eofDA,0,0]]]; 

NewFile: PUBLIC PROCEDURE [ 

name:STRING, access :AccessOpt ions , vers ion :VersionOptions] 

RETURNS [file:FileHandle] = 

BEGIN OPEN InlineDefs; 

fp: FP; old, create: BOOLEAN; 

[access , version] <- Val idateOptions[access .version] ; 

create ♦- BITAND[version,01dF i leOnly] 3 Q ; 

old ♦- DirectoryDefs .Di rectoryLookup[@fp , name , create] ; 

IF (old AND BITAND[version,NewFileOnly]#0) 

OR (-old AND -create) THEN ERROR F i leNameError[name] ; 

IF (File *• FindFile[@fp]) = NIL THEN 

BEGIN 

file ♦■ Al locateFile[FileTable]; 

filet ♦- Null F ileObject; 

file, fp ♦• fp; 

END; 
SetFileAccess[file, access]; 
RETURN 
END; 

InsertFile: PUBLIC PROCEDURE [ 

fp:POINTER TO FP, access : AccessOpt ions] 
RETURNS [f ileiFileHandle] = BEGIN 
[access,] «- Val idaLeOpt ions[access ,0] ; 
IF (file «- Findnie[fp]) = NIL THEN 

BEGIN 

file <- AllocateFile[FileTable]; 

f i let ♦• Null Fi leObject ; 

file, f p <- fpt ; 

END; 
SetF ileAccess[ f ile , access] ; 
RFTURN 
END; 

BootFile: PUBLIC PROCEDURE [access : AccessOp t ions] 
RTTURNS [f i 1 e : T ilellandle] = BEGIN 
[access.] <- Val idaLeOp L ions[access , 0] ; 
file ♦- AllocaLerile[FileTable]; 
filet ♦• NullT ileObject; 
SetrileAccess[file, access]; 
RETURN 
END; 

Val idateOplions: PROCrDURF [ 

access:AccessOpl,ions, version: Vers ionOptions] 
RTTURNS [AccessOpt ions, Vers ionOp t ions] = 
BEGIN OPTN Inl ineDefs; 

TT access = Def au UAccess THTN access «- Read; 
-- If version = Defaul LVers i on THEN version ♦- 0; 
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IF BITAND[version,NewFileOnly+01dFileOnly] = NewFileOnly+01 dFileOnly 
OR (BITAND[version,NewFi1eOnly]#0 AND BITAND[access, Append]=0) 

THEN ERROR Fi 1 eAccessError[NIL] ; 
IF BITAND[access,Append]=0 THEN 

version «- BITOR[version ,01dFi leOnly]; 
RETURN[ access, version] 
END; 

GetFileAccess: PUBLIC PROCEDURE [fi le : FileHandle] 
RETURNS [AccessOptions] = BEGIN 
access: AccessOptions +• 0; 
Val idateFile[FileTable, file]; 
IF file. read THEN access <- access+Read; 
IF file. write THEN access ♦- access+Wr i te; 
IF file. append THEN access <- access+Append ; 
RETURN[access] 
END; 

SetFileAccess: PUBLIC PROCEDURE [fi le: FileHandle, access :AccessOptions] 
BEGIN OPEN InlineDefs; 
ValidateFile[FileTable,f ile]; 
IF access = Defaul tAccess THEN access «- Read; 
file. read ♦- file. read OR BITAND[access , Read]//0; 
file. write «- file. write OR BITAND[access ,Wri te]#0 ; 
file. append «- file. append OR BITAND[access , Append]#0 ; 
RETURN 
END; 

LockFile: PUBLIC PROCEDURE [f i le : Fi leHandle] = 
BEGIN OPEN file; 
Val idateFile[FileTable,f ile]; 
IF lock = MaxLocks THEN 
ERROR F ileError[f ile]; 
lock ♦• lock+1; 
RETURN 
END; 

UnlockFile: PUBLIC PROCEDURE [file: FileHandle] = 
BEGIN OPEN file; 
Val idateFile[FileTable, file]; 
IF lock = THEN 

ERROR FileError[f ile]; 
lock +- lock-1; 
RETURN 
END; 

ReleaseFile: PUBLIC PROCEDURE [f ile : Fi leHandle] = 
BEGIN 

[] ♦- PurgeFile[f ile]; 
DiskKDDefs.UpdateDiskKD[]; 
RETURN 
END; 

DestroyFile: PUBLIC PROCEDURE [f ile : F i leHandle] = 
BEGIN 

seg: DataSegmentHandle ; 
fp: FP ♦- file, fp; 
IF ~PurgeFile[f ile] OR -DirectoryDef s .Di rectoryPurgeFP[@fp] 

THFN TRROR r i leError[f 1le] ; 
seg «- NewDataSegment[Defaul tBase, 1] ; 
BFSDefs .DeletePages [ 

DataSegmen tAddress[seg],@fp, fp. leaderDA , 

! UNWTND => DeleteDataSegment[seg]]; 
Dele LeOalaSegmen t[ seg] ; 
DiskKDDefs.UpdateDiskKD[]; 
RFTURN 
END; 

PurgeFile: PROCTDURT [f i 1 e: T i leHandle] 
RETURNS [BOOI CAN] = 
BFGIN OPTN file; 
ValidateFile[FileT able, file]; 
IT segcounl tt THFN f'RROR F i 1 eTrror[ f i 1 e] ; 
IF lock // TlirN RrrURN[TAISr]; 
Closer i le[T i le] ; 
I iberatef i le[f i leTable .file]; 
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RETURN[TRUE] 
END; 
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— File length stuff 

NormalizeFilelndex: PUBLIC PROCEDURE [ 
page:PageNumber , byte:CARDINAL] 
RETURNS [PageNumber, CARDINAL] = 
BEGIN OPEN InlineDefs, AltoDefs; 
delta: PageNumber = byte/BytesPerPage; 
byte <- BITAND[byte,BytesPerPage-l]; 
page <- page+delta; 
RETURN[page,byte] 
END; 

RoundFilelndex: PUBLIC PROCEDURE [ 
page: PageNumber , byte: CARDINAL] 
RETURNS [PageNumber, CARDINAL] = 
BEGIN 
IF byte = AltoDefs .BytesPerPage THEN 

BEGIN byte «• 0; 

page <- page+1; 

END; 
RETURN[page,byte] 
END; 

TruncateFilelndex: PUBLIC PROCEDURE [ 
page : PageNumber , byte: CARDINAL] 
RETURNS [PageNumber, CARDINAL] = BEGIN 
IF page > AND byte = THEN 

BEGIN page «• page-1 ; 

byte <- AltoDefs. BytesPerPage END; 
RETURN[page,byte] 
END; 

GetEndOfFile: PUBLIC PROCEDURE [f ile: F i leHandle] 
RETURNS [page:PageNumber, byte:CARDINAL] = 
BEGIN OPEN file; 

cfa: CFA; seg: DataSegmentHandle ; 
Val i da teFile[Fil eTable.fi le] ; 
IF -open THEN OpenF 1 le[f i le] ; 
IF -lengthvalid THEN 

BEGIN 

seg «- NewDataSegment[Defaul tBase, 1]; 

cfa <- CFA[fp,eof]; 

[] «- JumpToPage [ 

@cf a,Al toDef s .MaxF i 1 ePage ,DataSegmentAddress[seg] 
! UNWIND => DeleteDataSegment[seg]]; 

DeleteDataSegment[seg] ; 

UpdateFileLength[file,@cfa.fa]; 

END; 
[page, byte] «- TruncateF i leIndex[eof. page, eoF .byte] ; 
RETURN 
END; 

SetEndOfFile: PUBLIC PROCEDURE [ 

file: F i leHandle , page: PageNumber , byte :CARDINAL] = 
BEGIN da: vDA; 

cfa: CFA - CFA[f ile.fp , f ile.eof]; 

seg: DataSegmentHandle = NewDataSegmen t[Def aul tBase, 1 ] ; 
buf: POINTTR = DataSegmen tAddress[seg] ; 
BEGIN ENABLE UNWIND = > Dele teDataSegment[seg] ; 
Val idateF ile[F i leTable. file]; 
IF -file. open THFN OpenF i 1 e[ f i le] ; 
[page, byte] «- Normal izeF i lelndex[page , by te] ; 
[page, byte] <- RoundF i 1 elndex[page , byte] ; 
TF page=0 THIN TRROR F i 1 eCrror[ f i 1 e] ; 
[,da] ♦• JumpToPage[@cf a, page , buf ] ; 
SFLTCT cfa. fa. page FROM 
= page = > 

Sri rCT cfa. fa. byte FROM 
> byte = > IF ~ f i 1 e . w r i te 

THTN TRROR F i 1 eAccessrrror[ f i 1 e] ; 
< byte => IF -file. append 

THEN FRROR F i 1 eAccessf rror[f i 1 e] ; 
ENDCASr => 

IT da=eofDA THTN GO TO done 
Fl sr TRROR r ilefrror[f ile]; 
< page = > 
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BEGIN da ♦- eofDA; 
IF -file. append THEN 

ERROR FileAccessError[f ile]; 
END; 
ENDCASE => ERROR Fil eError[f i 1e] ; 
BFSDefs . Create Pages [buf , @cf a, page , byte] ; 
IF da # eofDA THEN BFSDefs .DeletePages [ 

buf ,Qcfa.fp,da,page+l]; 
EXITS 

done => NULL; 
END; 
DeleteDataSegment[seg] ; 
UpdateFi1eLength[f ile.Qcfa. fa]; 
RETURN 
END; 

UpdateFileLength: PUBLIC PROCEDURE [ 
file.-FileHandle, fa:POINTER TO FA] = 
BEGIN OPEN file; 
Va1idateFile[Fi1eTab1e, file]; 
IF eof ti fat THEN 

BEGIN eof <- fat; 

leng thchanged ♦■ TRUE; 

END; 
lengthval id ♦- TRUE; 
RETURN 
END; 
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— Open and Close (leader page stuff) 

MakePageZeroSeg: PROCEDURE [f ile: FileHandle] 
RETURNS [seg:FileSegmentHandle] = BEGIN 
temp: FileHandle = BootFi le[Read+Write] ; 
temp.fp «- file.fp; temp. open «- TRUE; 
seg «• NewFileSegment[temp ,0 , l.Read+Write 

I UNWIND => ReleaseFile[temp]]; 
Swapln[seg t UNWIND => 

DeletePageZeroSeg [seg]]; 
RETURN 
END; 

DeletePageZeroSeg: PROCEDURE [seg: FileSegmentHandle] 
BEGIN 

IF seg.swappedin THEN Unlock[seg]; 
DeleteFi leSegment[seQ] ; 
RETURN 
END; 

SecondsClock: POINTER TO TIME = L0OPH0LE[572B]; 

DAYTIME: PUBLIC PROCEDURE RETURNS [TIME] » 
BEGIN 

RETURN[SecondsClockt] 
END; 

OpenFile: PUBLIC PROCEDURE [f i le: F i leHandle] = 
BEGIN OPEN file; 
Id: POINTER TO LD; 
seg: FileSegmentHandle; 
ValidateFile[FileTable,f ile]; 
IF -open THEN 

BEGIN 

seg <- MakePageZeroSeg[f ile]; 

Id <- Fi TeSegmentAddress[seg] ; 

eof «- Id.eofFA; 

— PATCH for OS versions 5 & up 

IF eof. da - o THEN eof. da <- eofDA; 

IF read THEN Id. read <- DAYTIME[]; 

IF write OR append THEN Id. written ♦- DAYTIME[]; 

De1etePageZeroSeg[seg] ; 

open <- TRUE; 

END; 
RETURN 
END; 

CloseFile: PUBLIC PROCEDURE [f i 1 e: F i 1 eHandle] = 
BEGIN OPEN file; 
Id: POINTER TO LD; 
seg: FileSegmentHandle; 
Val idateFile[FileTable, f ile]; 
IF swapcount U THEN 

SIGNAL FileError[f ile]; 
IF open AND lengthchanged THEN 

BEGIN 

seg «- MakePageZeroSeg[f i le] ; 

Id «- Fi leSegmen tAddress[seg] ; 

Id . eof FA «- eof; 

DeletePageZeroSeg [seg]; 

lengthchanged «- FALSE; 

END; 
open <- FALSE; 
RFTURN 
END; 
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— Managing File Objects 

TableHandle: TYPE = BootDef s .TableHandle; 
FileObjects: BootDef s. Table ♦• [SIZE[FileOb ject] ,NIL] ; 
FileTable: TableHandle = @Fi leObjects; 

GetFileTable: PUBLIC PROCEDURE RETURNS [TableHandle] = 
BEGIN RETURN[FileTable] END; 

-- Procedures are bound before this initialization code is run 

AllocateFile: PROCEDURE [TableHandle] RETURNS [FileHandle] <- LOOPHOLE[Boo tDef s . AllocateObject] ; 
ValidateFile: PROCEDURE [TableHandl e, Fi 1 eHandle] <- LOOPHOLE[BootDef s . Val idateObject] ; 
LiberateFile: PROCEDURE [TableHandle, Fi leHandle] «- LOOPHOLE[BootDef s . LiberateObject] ; 

EnumerateFiles: PUBLIC PROCEDURE [ 

proc: PROCEDURE [FileHandle] RETURNS [BOOLEAN]] 
RETURNS [FileHandle] * 
BEGIN RErURN[LOOPHOLE[ 

BoolDefs.EnumerateObjects[FileTable,LOOPHOLE[proc]]]] 
END; 

FindFile: PUBLIC PROCEDURE [fp:POINTER TO FP] RETURNS [FileHandle] = 
BEGIN 

MatchFP: PROCEDURE [fi le: Fi leHandle] RETURNS [BOOLEAN] = 
BEGIN 
RETURN [ 

f i le. fp . serial = fp. serial 
AND f ile.fp. leaderDA = fp.leaderDA] 
END; 
RETURN[EnumerateFiles[MatchFP]] 
END; 

GetFileFP: PUBLIC PROCEDURE [f ile; F ileHandle , fp:POINTER TO FP] = 
BEGIN 

Val idateFile[FileTable, file]; 
rpt ♦- file.fp; 
RETURN 
END; 

-- Need to start worrying about Sys.Log. 

-- Cleanup procedure should reset LengthValid 

END. 



